home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 050 / pxg11.arc / LANGEXP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1985-10-06  |  1.9 KB  |  48 lines
  1.  
  2. {Expert program langexp.PAS generated by PXG}
  3.  
  4. {$I PXG.INC}
  5.  
  6. begin
  7.    repeat
  8.       writeln;
  9.       writeln('Programming Language Selection Expert');
  10.       writeln;
  11.  
  12.       if ask('Are you writing a large (>1000 line) program?') = true then
  13.          if ask('Are you a subcontractor working for the Department of Defense?') = true then
  14.             conclude('Use ADA')
  15.  
  16.          else    {Are you a subcontractor working for the Department of Defense? = false}
  17.             if ask('Will you be linking to standard object modules?') = true then
  18.                if ask('Do you want runtime subscript and subrange checking?') = true then
  19.                   conclude('Use Microsoft Pascal')
  20.  
  21.                else    {Do you want runtime subscript and subrange checking? = false}
  22.                   conclude('Use Lattice C')
  23.  
  24.             else    {Will you be linking to standard object modules? = false}
  25.                if ask('Is you application <10,000 lines?') = true then
  26.                   if ask('Is this a business or accounting type application?') = true then
  27.                      conclude('Use Cobol')
  28.  
  29.                   else    {Is this a business or accounting type application? = false}
  30.                      conclude('Use Turbo Pascal')
  31.  
  32.                else    {Is you application <10,000 lines? = false}
  33.                   conclude('Use Microsoft Pascal')
  34.  
  35.       else    {Are you writing a large (>1000 line) program? = false}
  36.          if ask('Is the program a resident DOS extension?') = true then
  37.             conclude('Use Assembly Language')
  38.  
  39.          else    {Is the program a resident DOS extension? = false}
  40.             if ask('Are you writing a knowledge-based expert system?') = true then
  41.                conclude('Use the Pascal Expert Generator')
  42.  
  43.             else    {Are you writing a knowledge-based expert system? = false}
  44.                conclude('Use Basic')
  45.  
  46.    until ask('Run again?') = false;
  47. end.
  48.